(defun c:pubcolor()


	
  	
  	(setq mypath (getvar "dwgprefix"))

	(setq myfname (getvar "dwgname"))

  	(setq myfname (substr myfname 1 (- (strlen myfname) 4 )))

	(setq fullpath (strcat mypath "plots\\34x22\\" myfname))

  	(setq fullpath_layout (strcat fullpath "-" (getvar "ctab") "-Color"  ))

    	(command "._psetupin" "L:/Util/pagesetup.dwt" "DWF Color" "_y" nil nil nil)
      	(command "._plot" "_n" "Layout1" "DWF Color" "" fullpath_layout "_y" "_y")

  
	
)